home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / misc / commodities / cliphistory / install cliphistory < prev    next >
Encoding:
Text File  |  1997-11-20  |  19.8 KB  |  783 lines
  1. ; $VER: Install_ClipHistory 2.4 (10.4.97)
  2.  
  3.  
  4. (if (= (exists "Env:Language") 1)
  5.     ; GetEnv reports "String too long" if the variable doesn't exist! :(
  6.     ; Dunno if this is fixed in V43... But we need the check anyway.
  7.     (set @language (getenv "language"))
  8. )
  9.  
  10.  
  11. (set #lang-danish         1)    ; Dansk
  12. (set #lang-german         2)    ; Deutch
  13. (set #lang-english        4)    ; English
  14. (set #lang-spanish        8)    ; Español
  15. (set #lang-french        16)    ; Français
  16. (set #lang-italian       32)    ; Italiano
  17. (set #lang-dutch         64)    ; Nederlands
  18. (set #lang-norwegian    128)    ; Norsk
  19. (set #lang-portoguese   256)    ; Português
  20. (set #lang-serbian      512)    ; Srpski
  21. (set #lang-finnish     1024)    ; Suomi
  22. (set #lang-swedish     2048)    ; Svenska
  23.  
  24. ; == English strings =========================================================
  25.  
  26. (set #default-lang #lang-english)
  27.  
  28. (set #bad-kick "You must be using Kickstart 2.04+ to install ClipHistory")
  29.  
  30. (set #install-msg
  31.     (cat
  32.         "\n\nWelcome to the ClipHistory installation utility.\n\n"
  33.         "This program lets you install ClipHistory on your Amiga.\n\n"
  34.         "See the manual for more information about ClipHistory.\n\n"
  35.         "ClipHistory  © 1994/96-97  Magnus Holmgren."
  36.     )
  37. )
  38.  
  39. (set #welcome "Welcome to the ClipHistory installer utility.")
  40.  
  41. (set #copying "Copying ")
  42.  
  43. (set #were-cliphistory "Where would you like to install ClipHistory?")
  44.  
  45. (set #help-were-cliphistory
  46.     (cat
  47.         "    If you place ClipHistory in Sys:WBStartup, it will "
  48.         "automatically be started each time you start your Amiga."
  49.     )
  50. )
  51.  
  52. (set #copy-icon "Should the icon be copied as well?")
  53.  
  54. (set #help-copy-icon
  55.   (cat
  56.     "    Since you already have ClipHistory installed, copying the icon "
  57.     "will mean that the current settings are lost. However, there may "
  58.     "be some new tooltypes in this version, so if you don't copy the icon "
  59.     "I suggest you read the version history carefully."
  60.   )
  61. )
  62.  
  63. (set #install-cliphistory-guide
  64.     "Would you like to install ClipHistory.guide?"
  65. )
  66.  
  67. (set #were-cliphistory-guide
  68.     "Where would you like to install ClipHistory.guide?"
  69. )
  70.  
  71. (set #help-were-cliphistory-guide
  72.     (cat
  73.         "    ClipHistory.guide is the manual for ClipHistory in the "
  74.         "special AmigaGuide® hypertext format. You need a program "
  75.         "like AmigaGuide or MultiView to view it properly."
  76.     )
  77. )
  78.  
  79. (set #which-language "\nWhich languages should be installed?")
  80.  
  81. (set #which-language-help
  82.     (cat
  83.         "    The Amiga can be operated in many different languages. "
  84.         "If you want ClipHistory to use the same language as the "
  85.         "Amiga Workbench then a catalog file must be copied to your "
  86.         "harddisk for each language supported.\n"
  87.         "    To reduce the amount of space consumed by the language "
  88.         "files, you can select to have only the files of specific "
  89.         "languages copied.\n"
  90.         "    Simply check the boxes of the languages you wish to "
  91.         "have available on your system.\n"
  92.         "    Please note that there are not language files for all "
  93.         "listed languages."
  94.     )
  95. )
  96.  
  97. ; == Danish strings =========================================================
  98.  
  99. (if (= @language "dansk" )
  100.     (
  101.         (set #default-lang #lang-danish)
  102.  
  103.         (set #bad-kick
  104.             "Du skal bruge Kickstart 2.04+ for at installere ClipHistory"
  105.         )
  106.  
  107.         (set #install-msg
  108.             (cat
  109.                 "\n\nVelkommen til ClipHistory installationsprogram.\n\n"
  110.                 "Dette program installerer ClipHistory på din Amiga.\n\n"
  111.                 "Yderligere information om ClipHistory findes i manualen.\n\n"
  112.                 "ClipHistory  © 1994/96  Magnus Holmgren."
  113.             )
  114.         )
  115.  
  116.         (set #welcome "Velkommen til ClipHistory installationsprogram.")
  117.  
  118.         (set #copying "Kopierer ")
  119.  
  120.         (set #were-cliphistory "Hvor skal ClipHistory installeres?")
  121.  
  122.         (set #help-were-cliphistory
  123.             (cat
  124.                 "    Hvis du placerer ClipHistory i Sys:WBStartup, så vil "
  125.                 "programmet automatisk startes hver gang du starter din Amiga."
  126.             )
  127.         )
  128.  
  129.         (set #copy-icon "Skal ikonet også kopieres?")
  130.  
  131.         (set #help-copy-icon
  132.           (cat
  133.             "    Da du i forvejen har ClipHistory installeret, så vil en "
  134.             "kopiering af ikonet medføre at de aktuelle indstillinger mistes. "
  135.             "Der kan imidlertid være nogle nye tool-typer i denne version, så "
  136.             "hvis du ikke kopierer ikonet vil jeg anbefale at du læser "
  137.             "versionshistorien grundigt."
  138.           )
  139.         )
  140.  
  141.         (set #install-cliphistory-guide
  142.             "Vil du installere ClipHistory.guide?"
  143.         )
  144.  
  145.         (set #were-cliphistory-guide
  146.             "Hvor vil du installere ClipHistory.guide?"
  147.         )
  148.  
  149.         (set #help-were-cliphistory-guide
  150.             (cat
  151.                 "  ClipHistory.guide er manualen til ClipHistory i det "
  152.                 "specielle hypertextformat AmigaGuide. Du skal bruge et "
  153.                 "program som AmigaGuide eller MultiView for at se den "
  154.                 "korrekt."
  155.             )
  156.         )
  157.  
  158.         (set #which-language "\nVilke sprog vil du installere?")
  159.  
  160.         (set #which-language-help
  161.             (cat
  162.                 "  Amigaen kan arbejde med mange forskellige sprog. Hvis du ønsker "
  163.                 "at ClipHistory skal bruge det samme sprog som Amiga Workbench, så "
  164.                 "skal en såkaldt katalogfil kopieres til din systemdisk for hvert "
  165.                 "sprog.\n"
  166.                 "  For at minimere den plads som filerne til hvert sprog optager, kan "
  167.                 "du vælge kun at installere enkelte sprog.\n"
  168.                 "  Markér blot boksene for de sprog som du ønsker at installere på "
  169.                 "dit system."
  170.                 "  Bemærk venligst at der ikke er filer til alle de viste sprog."
  171.             )
  172.         )
  173.     )
  174. )
  175.  
  176. ; == German strings =========================================================
  177.  
  178. (if (= @language "deutsch")
  179.     (
  180.         (set #default-lang #lang-german)
  181.     )
  182. )
  183.  
  184. ; == =========================================================
  185.  
  186. (if (= @language "español")
  187.     (
  188.         (set #default-lang #lang-spanish)
  189.     )
  190. )
  191.  
  192. ; == French strings =========================================================
  193.  
  194. (if (= @language "français")
  195.     (
  196.         (set #default-lang #lang-french)
  197.  
  198.         (set #bad-kick "Vous devez utiliser le Kickstart 2.04+ pour installer ClipHistory")
  199.  
  200.         (set #install-msg
  201.             (cat
  202.                 "\n\nBienvenue dans le systême d'installation de ClipHistory.\n\n"
  203.                 "Ce programme vous permet d'installer ClipHistory sur votre Amiga.\n\n"
  204.                 "Reportez-vous au manuel pour plus d'informations sur ClipHistory.\n\n"
  205.                 "ClipHistory  © 1994  Magnus Holmgren."
  206.             )
  207.         )
  208.  
  209.         (set #welcome "Bienvenue dans le systême d'installation de ClipHistory.")
  210.  
  211.         (set #copying "Copie de ")
  212.  
  213.         (set #were-cliphistory "Où désirez-vous installer ClipHistory ?")
  214.  
  215.         (set #help-were-cliphistory
  216.             (cat
  217.                 "    Si vous placez ClipHistory dans Sys:WBStartup, il sera automatiquement "
  218.                 "lancé à chaque fois que vous démarrerez votre Amiga."
  219.             )
  220.         )
  221.  
  222.         (set #install-cliphistory-guide
  223.             "Desirez-vous installer ClipHistory.guide ?"
  224.         )
  225.  
  226.         (set #were-cliphistory-guide
  227.             "Où desirez-vous installer ClipHistory.guide ?"
  228.         )
  229.  
  230.         (set #help-were-cliphistory-guide
  231.             (cat
  232.                 "    ClipHistory.guide est le manuel pour ClipHistory dans le format "
  233.                 "special AmigaGuide® hypertexte. Vous necessitez un programme comme  "
  234.                 "AmigaGuide ou MultiView pour le voir correctement."
  235.             )
  236.         )
  237.  
  238.         (set #which-language "\nQuelles langues doivent être installées ?")
  239.  
  240.         (set #which-language-help
  241.             (cat
  242.                 "    L'Amiga peut être utilisé dans beaucoup de langues différentes "
  243.                 "Si vous voulez que ClipHistory utilise la même langue que votre "
  244.                 "Workbench Amiga un fichier catalogue doit être copié dans votre "
  245.                 "disque dur pour chaque langue supportée.\n "
  246.                 "    Pour réduire l'espace consommé par les fichiers de langue, "
  247.                 "vous pouvez choisir de ne copier que les fichiers spécifiques à "
  248.                 "certaines langues.\n"
  249.                 "    Cochez simplement les cases des langues que vous souhaitez "
  250.                 "avoir disponibles dans votre systême.\n"
  251.                 "    Notez qu'il n'y a pas de fichiers de langue pour toutes les "
  252.                 "langues listées."
  253.             )
  254.         )
  255.     )
  256. )
  257.  
  258. ; == Italian strings =========================================================
  259.  
  260. (if (= @language "italiano")
  261.     (
  262.         (set #default-lang #lang-italian)
  263.  
  264.         (set #bad-kick "ClipHistory richiede il Kickstart 2.04 o superiore")
  265.  
  266.         (set #install-msg
  267.             (cat
  268.                 "\n\nBenvenuto nella procedura di installazione di ClipHistory.\n\n"
  269.                 "Questo programma ti permette di installare ClipHistory sul tuo Amiga.\n\n"
  270.                 "Consulta il manuale per maggiori informazioni sul programma.\n\n"
  271.                 "ClipHistory  © 1994/96  Magnus Holmgren."
  272.             )
  273.         )
  274.  
  275.         (set #welcome "Benvenuto nella procedura di installazione di ClipHistory.")
  276.  
  277.         (set #copying "Copia di ")
  278.  
  279.         (set #were-cliphistory "Dove vuoi installare ClipHistory ?")
  280.  
  281.         (set #help-were-cliphistory
  282.             (cat
  283.                 "    Copiando ClipHistory nel cassetto Sys:WBStartup, esso "
  284.                 "sarà lanciato automaticamente all'avvio del tuo Amiga."
  285.             )
  286.         )
  287.  
  288.         (set #copy-icon "Vuoi copiare anche l'icona?")
  289.  
  290.         (set #help-copy-icon
  291.           (cat
  292.             "    Dal momento che ClipHistory è già stato installato, copiando l'icona "
  293.             "la configurazione corrente sarà persa. Ad ogni modo, possono esserci nuovi "
  294.             "parametri in questa versione, per cui se non copi l'icona è consigliabile "
  295.             "che tu legga la documentazione."
  296.           )
  297.         )
  298.  
  299.         (set #install-cliphistory-guide
  300.             "Vuoi installare il file ClipHistory.guide?"
  301.         )
  302.  
  303.         (set #were-cliphistory-guide
  304.             "Dove vuoi installare ClipHistory.guide?"
  305.         )
  306.  
  307.         (set #help-were-cliphistory-guide
  308.             (cat
  309.                 "    ClipHistory.guide è il manuale di ClipHistory nello "
  310.                 "speciale formato ipertestuale AmigaGuide®. Per visualizzarlo "
  311.                 "correttamente hai bisogno di un programma come AmigaGuide "
  312.                 "o Multiview."
  313.             )
  314.         )
  315.  
  316.         (set #which-language "\nQuali linguaggi vuoi installare ?")
  317.  
  318.         (set #which-language-help
  319.             (cat
  320.                 "    Amiga permette di usare applicazioni in più lingue. "
  321.                 "Se vuoi che ClipHistory adotti la stessa lingua del tuo "
  322.                 "Workbench, allora un apposito file deve essere copiato sul "
  323.                 "tuo disco rigido (per ogni lingua utilizzata).\n"
  324.                 "    Per ridurre la quantità di spazio consumato dai file, "
  325.                 "puoi copiare solo i file di certe lingue.\n"
  326.                 "    Seleziona le lingue che vuoi rendere disponibili "
  327.                 "sul tuo sistema.\n"
  328.                 "    Ricorda che non ci sono file di traduzione per tutte le lingue "
  329.                 "elencate."
  330.             )
  331.         )
  332.     )
  333. )
  334.  
  335. ; == =========================================================
  336.  
  337. (if (= @language "nederlands")
  338.     (
  339.         (set #default-lang #lang-dutch)
  340.     )
  341. )
  342.  
  343. ; == =========================================================
  344.  
  345. (if (= @language "norsk")
  346.     (
  347.         (set #default-lang #lang-norwegian)
  348.     )
  349. )
  350.  
  351. ; == =========================================================
  352.  
  353. (if (= @language "português")
  354.     (
  355.         (set #default-lang #lang-portoguese)
  356.     )
  357. )
  358.  
  359. ; == Serbian strings =========================================================
  360.  
  361. (if (= @language "srpski")
  362.     (
  363.         (set #default-lang #land-serbian)
  364.  
  365.  
  366.         (set #bad-kick "Morate imati Kikstart 2.04+ da bi ste instalirali ClipHistory")
  367.  
  368.         (set #install-msg
  369.             (cat
  370.                 "\n\nDobro doçli u program za instalaciju ClipHistory-ja.\n\n"
  371.                 "Ovaj program vam omu†ava da instalirate ClipHistory na vaçoj Amigi.\n\n"
  372.                 "Pogledajte uputstvo za viçe informacija o ClipHistory-ju.\n\n"
  373.                 "ClipHistory  © 1994/96-97  Magnus Holmgren."
  374.             )
  375.         )
  376.  
  377.         (set #welcome "Dobro doçli u program za instalaciju ClipHistory-ja.")
  378.  
  379.         (set #copying "Kopiram ")
  380.  
  381.         (set #were-cliphistory "Gde §elite da instalirate ClipHistory?")
  382.  
  383.         (set #help-were-cliphistory
  384.             (cat
  385.                 "    Ako stavite ClipHistory u Sys:WBStartup, on †e se   "
  386.                 "automatski startovan svaki put kada startujete Amigu.   "
  387.             )
  388.         )
  389.  
  390.         (set #copy-icon "Da li §elite da se kopira i ikona?")
  391.  
  392.         (set #help-copy-icon
  393.             (cat
  394.                 "    Poçto ve† imate instaliran ClipHistory, kopiranjem ikone "
  395.                 "†e te izgubiti trenutna podeçavanja. MeÐutim, mo§da ima novih "
  396.                 "tultajpova u ovoj verziji, tako da ako ne kopirate ikonu "
  397.                 "preporuŸujem da proŸitate istorijat verzija."
  398.             )
  399.         )
  400.  
  401.         (set #install-cliphistory-guide
  402.             "Da li §elite da instalirate ClipHistory.guide?"
  403.         )
  404.  
  405.         (set #were-cliphistory-guide
  406.             "Gde §elite da instalirate ClipHistory.guide?"
  407.         )
  408.  
  409.         (set #help-were-cliphistory-guide
  410.             (cat
  411.                 "    ClipHistory.guide je uputstvo za ClipHistory u "
  412.                 "specijalnom AmigaGuide® hipertekst formatu. Treba vam program "
  413.                 "kao AmigaGuide ili MultiView da bi ga videli ispravno."
  414.             )
  415.         )
  416.  
  417.         (set #which-language "\nKoje jezike §elite da instalirate?")
  418.  
  419.         (set #which-language-help
  420.             (cat
  421.                 "    Amiga mo§e da radi na razliŸitim jezicima. Ako §elite da "
  422.                 "Visage koristi isti jezik kao vaç VorkbenŸ, onda mora biti "
  423.                 "kopirano nekoliko katalog fajlova na hard disk za svaki "
  424.                 "podr§ani jezik.\n"
  425.                 "    Da bi se smanjilo mesto potrebno kataloge, mo§ete odabrati "
  426.                 "da se koriraju samo fajlovi odreÐenog jezika.\n"
  427.                 "    Samo obele§ite koje jezike §elite da imate u vaçem sistemu.\n"
  428.             )
  429.         )
  430.     )
  431. )
  432.  
  433. ; == Finnish strings =========================================================
  434.  
  435. (if (= @language "suomi")
  436.     (
  437.         (set #default-lang #lang-finnish)
  438.  
  439.         (set #bad-kick "Sinulla täytyy olla Kickstart 2.04+ asentaaksesi ClipHistoryn")
  440.  
  441.         (set #install-msg
  442.             (cat
  443.                 "\n\nTervetuloa ClipHistoryn asennusohjelmaan.\n\n"
  444.                 "Tämä ohjelma asentaa ClipHistoryn Amigaasi.\n\n"
  445.                 "Lue ohjeista enemmän tietoa ClipHistorystä.\n\n"
  446.                 "ClipHistory  © 1994/96  Magnus Holmgren."
  447.             )
  448.         )
  449.  
  450.         (set #welcome "Tervetuloa ClipHistoryn asennusohjelmaan.")
  451.  
  452.         (set #copying "Kopioidaan ")
  453.  
  454.         (set #were-cliphistory "Mihin haluat asentaa ClipHistoryn?")
  455.  
  456.         (set #help-were-cliphistory
  457.             (cat
  458.                 "    Jos asennat ClipHistoryn hakemistoon Sys:WBStartup, "
  459.                 "se käynnistetään automaattisesti joka kerta kun käynnistät "
  460.                     "Amigasi."
  461.             )
  462.         )
  463.  
  464.         (set #copy-icon "Kopioidaanko myös ikoni?")
  465.  
  466.         (set #help-copy-icon
  467.             (cat
  468.                 "    Koska sinulla on jo ClipHistory asennettuna, ikonin kopiointi "
  469.                 "hävittäisi nykyiset asetuksesi. Tässä versiossa saattaa kuitenkin "
  470.                 "olla uusia määreitä, joten ellet kopioi ikonia, lue versiohistoria "
  471.                 "tarkasti läpi."
  472.             )
  473.         )
  474.  
  475.         (set #install-cliphistory-guide
  476.             "Asennetaanko ohjetiedosto ClipHistory.guide?"
  477.         )
  478.  
  479.         (set #were-cliphistory-guide
  480.             "Mihin haluat asentaa ohjetiedoston ClipHistory.guide?"
  481.         )
  482.  
  483.         (set #help-were-cliphistory-guide
  484.             (cat
  485.                 "    ClipHistory.guide on ClipHistoryn ohjetiedosto erityisessä "
  486.                 "AmigaGuide® -hypertekstimuodossa. Tarvitset AmigaGuiden, "
  487.                 "MultiViewin tai vastaavan ohjelman lukeaksesi tiedoston oikein."
  488.             )
  489.         )
  490.  
  491.         (set #which-language "\nMitkä kielitiedostot haluat asentaa?")
  492.  
  493.         (set #which-language-help
  494.             (cat
  495.                     "    Amigaa voidaan käyttää monilla kielillä. Jos haluat "
  496.                     "ClipHistoryn käyttävän samaa kieltä kuin Amigan Workbench, "
  497.                     "joudutaan kiintolevyllesi kopioimaan sanasto jokaista "
  498.                     "tuettua kieltä kohden.\n"
  499.                     "    Vähentääksesi kielitiedostojen vaatimaa levytilaa, voit "
  500.                     "valita asennettavaksi vain tiettyjen kielten tiedostot.\n"
  501.                     "    Merkitse laatikot niiden kielten kohdalla, joiden haluat "
  502.                     "olevan käytettävissä järjestelmässäsi.\n"
  503.                     "    Huomaa, että kaikille luetelluille kielille ei ole "
  504.                     "kielitiedostoa."
  505.             )
  506.         )
  507.     )
  508. )
  509.  
  510. ; == Swedish strings =========================================================
  511.  
  512. (if (= @language "svenska")
  513.     (
  514.         (set #default-lang #lang-swedish)
  515.  
  516.         (set #bad-kick
  517.             "Du måste använda Kickstart 2.04+ för att installera ClipHistory"
  518.         )
  519.  
  520.         (set #install-msg
  521.             (cat
  522.                 "\n\nVälkommen till Installeraren.\n\n"
  523.                 "Det här programmet låter dig installera "
  524.                 "ClipHistory i din Amiga.\n\n"
  525.                 "Se manualen för information om hur "
  526.                 "ClipHistory får distribueras.\n\n"
  527.                 "ClipHistory  © 1994/96-97  Magnus Holmgren."
  528.             )
  529.         )
  530.  
  531.         (set #welcome "Välkommen till installeraren för ClipHistory.")
  532.  
  533.         (set #copying "Kopierar ")
  534.  
  535.         (set #were-cliphistory "Var vill du installera ClipHistory?")
  536.  
  537.         (set #help-were-cliphistory
  538.             (cat
  539.                 "  Om du placerar ClipHistory i Sys:WBStartup, så kommer "
  540.                 "programmet automatiskt att startas varje gång du startar "
  541.                 "din Amiga."
  542.             )
  543.         )
  544.  
  545.         (set #copy-icon "Ska symbolen också kopieras?")
  546.  
  547.         (set #help-copy-icon
  548.             (cat
  549.                 "  Eftersom du redan har ClipHistory installerad, så skulle "
  550.                 "en kopiering av symbolen göra att de aktuella "
  551.                 "inställningarna försvinner. Tänk på att det kan finnas några "
  552.                 "nya verktygstyper i den här versionen, så om du inte kopierar "
  553.                 "symbolen så rekommendrar jag att du läser igenom "
  554.                 "versionshistorien ordentligt."
  555.             )
  556.         )
  557.  
  558.         (set #install-cliphistory-guide
  559.             "Vill du installera ClipHistory.guide?"
  560.         )
  561.  
  562.         (set #were-cliphistory-guide
  563.             "Var vill du installera ClipHistory.guide?"
  564.         )
  565.  
  566.         (set #help-were-cliphistory-guide
  567.             (cat
  568.                 "  ClipHistory.guide är manualen till ClipHistory i det "
  569.                 "speciella hypertextformatet AmigaGuide. Du behöver ett "
  570.                 "program som AmigaGuide eller MultiView för att se den "
  571.                 "ordentligt."
  572.             )
  573.         )
  574.  
  575.         (set #which-language "\nVilka språk vill du installera?")
  576.  
  577.         (set #which-language-help
  578.             (cat
  579.                 "  Amigan kan arbeta med flera olika språk. Om du vill att "
  580.                 "ClipHistory ska använda samma språk som Amiga Workbench så "
  581.                 "måste en så kallad katalogfil kopieras till din systemdisk "
  582.                 "för varje språk.\n"
  583.                 "  För att minimera diskutrymmet för språkfiler kan du välja "
  584.                 "att bara installera filerna för vissa språk.\n"
  585.                 "  Markera bara rutorna för de språk du önskar installera i "
  586.                 "din dator."
  587.                 "  Obs: Det finns inte språkfiler för alla visade språk."
  588.             )
  589.         )
  590.     )
  591. )
  592.  
  593. ; ============================================================================
  594.  
  595. ; Copy the info file #_info to #destination, using the MagicWB version,
  596. ; if MagicWB 2.0+ is installed.
  597. (procedure P_mycopyinfo
  598.     (
  599.         (if (= 1 (exists "Env:MagicWB" (noreq)))
  600.             (set #infofile (tackon "MagicWB/" (fileonly #_info)))
  601.             (set #infofile #_info)
  602.         )
  603.  
  604.         (copyfiles
  605.             (source #infofile)
  606.             (dest   #destination)
  607.         )
  608.     )
  609. )
  610.  
  611. (set @default-dest "")
  612.  
  613. ; Check Kickstart version. Exit if not at least 2.0
  614.  
  615. (if (< (/ (getversion) 65536) 37)
  616.     (abort #bad-kick)
  617. )
  618.  
  619. (message #install-msg)
  620.  
  621. (welcome)
  622.  
  623. ; Copy ClipHistory
  624.  
  625. (set #destination
  626.     (askdir
  627.         (prompt  #were-cliphistory)
  628.         (help    (cat #help-were-cliphistory "\n\n" @askdir-help))
  629.         (default "Sys:WBStartup")
  630.     )
  631. )
  632.  
  633. (copylib
  634.     (prompt (cat #copying "ClipHistory..."))
  635.     (source "ClipHistory")
  636.     (dest   #destination)
  637. )
  638.  
  639. (complete 40)
  640.  
  641. (if (= 1 (exists (tackon #destination "ClipHistory.info") (noreq)))
  642.     (if
  643.         (askbool
  644.             (prompt #copy-icon)
  645.             (help   #help-copy-icon)
  646.         )
  647.         (
  648.             (set #_info "ClipHistory.info")
  649.             (P_mycopyinfo)
  650.         )
  651.     )
  652.     (
  653.         (set #_info "ClipHistory.info")
  654.         (P_mycopyinfo)
  655.     )
  656. )
  657.  
  658. (complete 50)
  659.  
  660. ; Copy ClipHistory.guide
  661.  
  662. (if
  663.     (askbool
  664.         (prompt (cat "\n" #install-cliphistory-guide))
  665.         (help   #help-were-cliphistory-guide)
  666.     )
  667.  
  668.     (
  669.         (set #destination
  670.             (askdir
  671.                 (prompt  #were-cliphistory-guide)
  672.                 (help    (cat #help-were-cliphistory-guide "\n\n" @askdir-help))
  673.                 (default "Work:")
  674.             )
  675.         )
  676.  
  677.         (copyfiles
  678.             (prompt (cat #copying "ClipHistory.guide..."))
  679.             (source "ClipHistory.guide")
  680.             (dest   #destination)
  681.         )
  682.  
  683.         (set #_info "ClipHistory.guide.info")
  684.         (P_mycopyinfo)
  685.  
  686.         ; Modify default tool of ClipHistory.guide if this is needed
  687.  
  688.         (if (< (/ (getversion) 65536) 39)
  689.             (tooltype
  690.                 (dest (tackon #destination "ClipHistory.guide"))
  691.                 (setdefaulttool "AmigaGuide")
  692.             )
  693.         )
  694.     )
  695. )
  696.  
  697. (complete 90)
  698.  
  699. ; Copy catalog files
  700.  
  701. (if (= (exists "Locale:") 2)
  702.     (
  703.         (set #lang
  704.             (askoptions
  705.                 (prompt #which-language)
  706.                 (help
  707.                     (cat
  708.                         #which-language-help
  709.                         "\n\n"
  710.                         @askoptions-help
  711.                     )
  712.                 )
  713.                 (choices
  714.                     "Dansk"
  715.                     "Deutch"
  716.                     "English"
  717.                     "Español"
  718.                     "Français"
  719.                     "Italiano"
  720.                     "Nederlands"
  721.                     "Norsk"
  722.                     "Português"
  723.                     "Srpski"
  724.                     "Suomi"
  725.                     "Svenska"
  726.                 )
  727.                 (default #default-lang)
  728.             )
  729.         )
  730.  
  731.         (set #n 0)
  732.  
  733.         (while
  734.             (set #language
  735.                 (select #n
  736.                     "Dansk"
  737.                     "Deutch"
  738.                     "English"
  739.                     "Español"
  740.                     "Français"
  741.                     "Italiano"
  742.                     "Nederlands"
  743.                     "Norsk"
  744.                     "Português"
  745.                     "Srpski"
  746.                     "Suomi"
  747.                     "Svenska"
  748.                     ""
  749.                 )
  750.             )
  751.             (
  752.                 ; No catalog for english strings...
  753.                 (if (AND (IN #lang #n) (<> "English" #language))
  754.                     (
  755.                         (set #catalogs (tackon "Catalogs" #language))
  756.  
  757.                         (set #catsource (tackon #catalogs "cliphistory.catalog"))
  758.  
  759.                         (set #destination (tackon "Locale:Catalogs" #language))
  760.  
  761.                         (if (exists #catsource)
  762.                             (
  763.                                 (makedir #destination)
  764.  
  765.                                 (copylib
  766.                                     (source    #catsource)
  767.                                     (dest    #destination)
  768.                                 )
  769.                             )
  770.                         )
  771.                     )
  772.                 )
  773.  
  774.                 (set #n (+ #n 1))
  775.             )
  776.         )
  777.     )
  778. )
  779.  
  780. (complete 100)
  781.  
  782. ; End of Installer script
  783.